www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/conn.asp

    <%
	dim conn
	dim connstr
	dim db
	db="data/1du.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	sub closedatabase()
	  conn.close
      set conn=Nothing
    End sub
%>